home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / misc_lsp.arc / TEXTSUB.LSP < prev    next >
Encoding:
Text File  |  1987-08-28  |  848 b   |  32 lines
  1. ; This function changes all selected text
  2. ; to the indicated style.
  3. ;
  4. ; Function name "TXTSTYLE" - Execution command "TXTSTYLE"
  5. ;
  6. ; Written by Christopher F. Conrad
  7. ;
  8. ;
  9. (defun c:txtstyle ()
  10.   (setvar "CMDECHO" 0)
  11.   (setq style (getvar "TEXTSTYLE"))
  12.   (prompt "\nEnter new text style <") (princ style) (prompt ">")
  13.   (setq newtext (getstring " "))
  14.   (if (= newtext "") (setq newtext style))
  15.   (setq set (ssget))
  16.   (setq le (sslength set))
  17.   (setq counter 0)
  18.   (while (<= counter (1- le))
  19.     (setq name (ssname set counter))
  20.     (setq ent (entget name))
  21.     (setq d (cdr (assoc '0 ent)))
  22.       (if (= d "TEXT")
  23.         (progn (setq dot (assoc '7 ent))
  24.                (setq ent (subst (cons 7 newtext) dot ent))
  25.                (entmod ent)
  26.         )
  27.       )
  28.     (setq counter (+ 1 counter))
  29.   )
  30.   (setq a nil)
  31.   (gc)
  32. )